home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2007 May / PCpro_2007_05.ISO / files / vollversionen / visualdataflex / VDF12.0.StudioDownload.exe / %MAINDIR% / Examples / Example Library / AppSrc / cComWebBrowser.pkg < prev    next >
Encoding:
Text File  |  2007-03-10  |  57.1 KB  |  1,504 lines
  1. // Visual DataFlex COM proxy classes generated from C:\WINDOWS\system32\shdocvw.dll
  2. Use FlexCom20.pkg
  3.  
  4.  
  5. // Constants for WebBrowser CommandStateChange
  6. Define OLECommandStateChangeConstants for Integer
  7.     // Command Change
  8.     Define OLECSC_UPDATECOMMANDS for -1
  9.     // Navigate Forward
  10.     Define OLECSC_NAVIGATEFORWARD for 1
  11.     // Navigate Back
  12.     Define OLECSC_NAVIGATEBACK for 2
  13.  
  14. Define OLEOLECMDID for Integer
  15.     Define OLEOLECMDID_OPEN for 1
  16.     Define OLEOLECMDID_NEW for 2
  17.     Define OLEOLECMDID_SAVE for 3
  18.     Define OLEOLECMDID_SAVEAS for 4
  19.     Define OLEOLECMDID_SAVECOPYAS for 5
  20.     Define OLEOLECMDID_PRINT for 6
  21.     Define OLEOLECMDID_PRINTPREVIEW for 7
  22.     Define OLEOLECMDID_PAGESETUP for 8
  23.     Define OLEOLECMDID_SPELL for 9
  24.     Define OLEOLECMDID_PROPERTIES for 10
  25.     Define OLEOLECMDID_CUT for 11
  26.     Define OLEOLECMDID_COPY for 12
  27.     Define OLEOLECMDID_PASTE for 13
  28.     Define OLEOLECMDID_PASTESPECIAL for 14
  29.     Define OLEOLECMDID_UNDO for 15
  30.     Define OLEOLECMDID_REDO for 16
  31.     Define OLEOLECMDID_SELECTALL for 17
  32.     Define OLEOLECMDID_CLEARSELECTION for 18
  33.     Define OLEOLECMDID_ZOOM for 19
  34.     Define OLEOLECMDID_GETZOOMRANGE for 20
  35.     Define OLEOLECMDID_UPDATECOMMANDS for 21
  36.     Define OLEOLECMDID_REFRESH for 22
  37.     Define OLEOLECMDID_STOP for 23
  38.     Define OLEOLECMDID_HIDETOOLBARS for 24
  39.     Define OLEOLECMDID_SETPROGRESSMAX for 25
  40.     Define OLEOLECMDID_SETPROGRESSPOS for 26
  41.     Define OLEOLECMDID_SETPROGRESSTEXT for 27
  42.     Define OLEOLECMDID_SETTITLE for 28
  43.     Define OLEOLECMDID_SETDOWNLOADSTATE for 29
  44.     Define OLEOLECMDID_STOPDOWNLOAD for 30
  45.     Define OLEOLECMDID_ONTOOLBARACTIVATED for 31
  46.     Define OLEOLECMDID_FIND for 32
  47.     Define OLEOLECMDID_DELETE for 33
  48.     Define OLEOLECMDID_HTTPEQUIV for 34
  49.     Define OLEOLECMDID_HTTPEQUIV_DONE for 35
  50.     Define OLEOLECMDID_ENABLE_INTERACTION for 36
  51.     Define OLEOLECMDID_ONUNLOAD for 37
  52.     Define OLEOLECMDID_PROPERTYBAG2 for 38
  53.     Define OLEOLECMDID_PREREFRESH for 39
  54.     Define OLEOLECMDID_SHOWSCRIPTERROR for 40
  55.     Define OLEOLECMDID_SHOWMESSAGE for 41
  56.     Define OLEOLECMDID_SHOWFIND for 42
  57.     Define OLEOLECMDID_SHOWPAGESETUP for 43
  58.     Define OLEOLECMDID_SHOWPRINT for 44
  59.     Define OLEOLECMDID_CLOSE for 45
  60.     Define OLEOLECMDID_ALLOWUILESSSAVEAS for 46
  61.     Define OLEOLECMDID_DONTDOWNLOADCSS for 47
  62.     Define OLEOLECMDID_UPDATEPAGESTATUS for 48
  63.     Define OLEOLECMDID_PRINT2 for 49
  64.     Define OLEOLECMDID_PRINTPREVIEW2 for 50
  65.     Define OLEOLECMDID_SETPRINTTEMPLATE for 51
  66.     Define OLEOLECMDID_GETPRINTTEMPLATE for 52
  67.     Define OLEOLECMDID_PAGEACTIONBLOCKED for 55
  68.     Define OLEOLECMDID_PAGEACTIONUIQUERY for 56
  69.     Define OLEOLECMDID_FOCUSVIEWCONTROLS for 57
  70.     Define OLEOLECMDID_FOCUSVIEWCONTROLSQUERY for 58
  71.     Define OLEOLECMDID_SHOWPAGEACTIONMENU for 59
  72.  
  73. Define OLEOLECMDF for Integer
  74.     Define OLEOLECMDF_SUPPORTED for 1
  75.     Define OLEOLECMDF_ENABLED for 2
  76.     Define OLEOLECMDF_LATCHED for 4
  77.     Define OLEOLECMDF_NINCHED for 8
  78.     Define OLEOLECMDF_INVISIBLE for 16
  79.     Define OLEOLECMDF_DEFHIDEONCTXTMENU for 32
  80.  
  81. Define OLEOLECMDEXECOPT for Integer
  82.     Define OLEOLECMDEXECOPT_DODEFAULT for 0
  83.     Define OLEOLECMDEXECOPT_PROMPTUSER for 1
  84.     Define OLEOLECMDEXECOPT_DONTPROMPTUSER for 2
  85.     Define OLEOLECMDEXECOPT_SHOWHELP for 3
  86.  
  87. Define OLEtagREADYSTATE for Integer
  88.     Define OLEREADYSTATE_UNINITIALIZED for 0
  89.     Define OLEREADYSTATE_LOADING for 1
  90.     Define OLEREADYSTATE_LOADED for 2
  91.     Define OLEREADYSTATE_INTERACTIVE for 3
  92.     Define OLEREADYSTATE_COMPLETE for 4
  93.  
  94. // Constants for WebBrowser security icon notification
  95. Define OLESecureLockIconConstants for Integer
  96.     Define OLEsecureLockIconUnsecure for 0
  97.     Define OLEsecureLockIconMixed for 1
  98.     Define OLEsecureLockIconSecureUnknownBits for 2
  99.     Define OLEsecureLockIconSecure40Bit for 3
  100.     Define OLEsecureLockIconSecure56Bit for 4
  101.     Define OLEsecureLockIconSecureFortezza for 5
  102.     Define OLEsecureLockIconSecure128Bit for 6
  103.  
  104. // Constants for ShellWindows registration
  105. Define OLEShellWindowTypeConstants for Integer
  106.     // Explorer
  107.     Define OLESWC_EXPLORER for 0
  108.     // Various Browsing Windows
  109.     Define OLESWC_BROWSER for 1
  110.     // 3rd Party Browsers
  111.     Define OLESWC_3RDPARTY for 2
  112.     // Creation Callback
  113.     Define OLESWC_CALLBACK for 4
  114.  
  115. // Options for ShellWindows FindWindow
  116. Define OLEShellWindowFindWindowOptions for Integer
  117.  
  118. // CLSID: {D30C1661-CDAF-11D0-8A3E-00C04FC9E26E}
  119. // Web Browser Interface for IE4.
  120. Class cComIWebBrowser2 is a Mixin
  121.  
  122.     // Navigates to the previous item in the history list.
  123.     Procedure ComGoBack
  124.         Handle hDispatchDriver
  125.         Get phDispatchDriver to hDispatchDriver
  126.         Send InvokeComMethod to hDispatchDriver 100 OLE_VT_VOID
  127.     End_Procedure
  128.  
  129.     // Navigates to the next item in the history list.
  130.     Procedure ComGoForward
  131.         Handle hDispatchDriver
  132.         Get phDispatchDriver to hDispatchDriver
  133.         Send InvokeComMethod to hDispatchDriver 101 OLE_VT_VOID
  134.     End_Procedure
  135.  
  136.     // Go home/start page.
  137.     Procedure ComGoHome
  138.         Handle hDispatchDriver
  139.         Get phDispatchDriver to hDispatchDriver
  140.         Send InvokeComMethod to hDispatchDriver 102 OLE_VT_VOID
  141.     End_Procedure
  142.  
  143.     // Go Search Page.
  144.     Procedure ComGoSearch
  145.         Handle hDispatchDriver
  146.         Get phDispatchDriver to hDispatchDriver
  147.         Send InvokeComMethod to hDispatchDriver 103 OLE_VT_VOID
  148.     End_Procedure
  149.  
  150.     // Navigates to a URL or file.
  151.     Procedure ComNavigate String llURL Variant llFlags Variant llTargetFrameName Variant llPostData Variant llHeaders
  152.         Handle hDispatchDriver
  153.         Get phDispatchDriver to hDispatchDriver
  154.         Send PrepareParams to hDispatchDriver 5
  155.         Send DefineParam to hDispatchDriver OLE_VT_BSTR llURL
  156.         Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior OLE_VT_VARIANT) llFlags
  157.         Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior OLE_VT_VARIANT) llTargetFrameName
  158.         Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior OLE_VT_VARIANT) llPostData
  159.         Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior OLE_VT_VARIANT) llHeaders
  160.         Send InvokeComMethod to hDispatchDriver 104 OLE_VT_VOID
  161.     End_Procedure
  162.  
  163.     // Refresh the currently viewed page.
  164.     Procedure ComRefresh
  165.         Handle hDispatchDriver
  166.         Get phDispatchDriver to hDispatchDriver
  167.         Send InvokeComMethod to hDispatchDriver -550 OLE_VT_VOID
  168.     End_Procedure
  169.  
  170.     // Refresh the currently viewed page.
  171.     Procedure ComRefresh2 Variant llLevel
  172.         Handle hDispatchDriver
  173.         Get phDispatchDriver to hDispatchDriver
  174.         Send PrepareParams to hDispatchDriver 1
  175.         Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior OLE_VT_VARIANT) llLevel
  176.         Send InvokeComMethod to hDispatchDriver 105 OLE_VT_VOID
  177.     End_Procedure
  178.  
  179.     // Stops opening a file.
  180.     Procedure ComStop
  181.         Handle hDispatchDriver
  182.         Get phDispatchDriver to hDispatchDriver
  183.         Send InvokeComMethod to hDispatchDriver 106 OLE_VT_VOID
  184.     End_Procedure
  185.  
  186.     // Returns the application automation object if accessible, this automation object otherwise..
  187.     { MethodType=Property DesignTime=False }
  188.     Function ComApplication Returns Variant
  189.         Handle hDispatchDriver
  190.         Variant retVal
  191.         Get phDispatchDriver to hDispatchDriver
  192.         Get InvokeComMethod of hDispatchDriver 200 OLE_VT_DISPATCH to retVal
  193.         Function_Return retVal
  194.     End_Function
  195.  
  196.     // Returns the automation object of the container/parent if one exists or this automation object.
  197.     { MethodType=Property DesignTime=False }
  198.     Function ComParent Returns Variant
  199.         Handle hDispatchDriver
  200.         Variant retVal
  201.         Get phDispatchDriver to hDispatchDriver
  202.         Get InvokeComMethod of hDispatchDriver 201 OLE_VT_DISPATCH to retVal
  203.         Function_Return retVal
  204.     End_Function
  205.  
  206.     // Returns the container/parent automation object, if any.
  207.     { MethodType=Property DesignTime=False }
  208.     Function ComContainer Returns Variant
  209.         Handle hDispatchDriver
  210.         Variant retVal
  211.         Get phDispatchDriver to hDispatchDriver
  212.         Get InvokeComMethod of hDispatchDriver 202 OLE_VT_DISPATCH to retVal
  213.         Function_Return retVal
  214.     End_Function
  215.  
  216.     // Returns the active Document automation object, if any.
  217.     { MethodType=Property DesignTime=False }
  218.     Function ComDocument Returns Variant
  219.         Handle hDispatchDriver
  220.         Variant retVal
  221.         Get phDispatchDriver to hDispatchDriver
  222.         Get InvokeComMethod of hDispatchDriver 203 OLE_VT_DISPATCH to retVal
  223.         Function_Return retVal
  224.     End_Function
  225.  
  226.     // Returns True if this is the top level object.
  227.     { MethodType=Property DesignTime=False }
  228.     Function ComTopLevelContainer Returns Boolean
  229.         Handle hDispatchDriver
  230.         Boolean retVal
  231.         Get phDispatchDriver to hDispatchDriver
  232.         Get InvokeComMethod of hDispatchDriver 204 OLE_VT_BOOL to retVal
  233.         Function_Return retVal
  234.     End_Function
  235.  
  236.     // Returns the type of the contained document object.
  237.     { MethodType=Property DesignTime=False }
  238.     Function ComType Returns String
  239.         Handle hDispatchDriver
  240.         String retVal
  241.         Get phDispatchDriver to hDispatchDriver
  242.         Get InvokeComMethod of hDispatchDriver 205 OLE_VT_BSTR to retVal
  243.         Function_Return retVal
  244.     End_Function
  245.  
  246.     // The horizontal position (pixels) of the frame window relative to the screen/container.
  247.     { MethodType=Property DesignTime=False }
  248.     Function ComLeft Returns Integer
  249.         Handle hDispatchDriver
  250.         Integer retVal
  251.         Get phDispatchDriver to hDispatchDriver
  252.         Get InvokeComMethod of hDispatchDriver 206 OLE_VT_I4 to retVal
  253.         Function_Return retVal
  254.     End_Function
  255.  
  256.     // The horizontal position (pixels) of the frame window relative to the screen/container.
  257.     { MethodType=Property DesignTime=False }
  258.     Procedure Set ComLeft Integer value
  259.         Handle hDispatchDriver
  260.         Get phDispatchDriver to hDispatchDriver
  261.         Send PrepareParams to hDispatchDriver 1
  262.         Set ComProperty of hDispatchDriver 206 OLE_VT_I4 to value
  263.     End_Procedure
  264.  
  265.     // The vertical position (pixels) of the frame window relative to the screen/container.
  266.     { MethodType=Property DesignTime=False }
  267.     Function ComTop Returns Integer
  268.         Handle hDispatchDriver
  269.         Integer retVal
  270.         Get phDispatchDriver to hDispatchDriver
  271.         Get InvokeComMethod of hDispatchDriver 207 OLE_VT_I4 to retVal
  272.         Function_Return retVal
  273.     End_Function
  274.  
  275.     // The vertical position (pixels) of the frame window relative to the screen/container.
  276.     { MethodType=Property DesignTime=False }
  277.     Procedure Set ComTop Integer value
  278.         Handle hDispatchDriver
  279.         Get phDispatchDriver to hDispatchDriver
  280.         Send PrepareParams to hDispatchDriver 1
  281.         Set ComProperty of hDispatchDriver 207 OLE_VT_I4 to value
  282.     End_Procedure
  283.  
  284.     // The horizontal dimension (pixels) of the frame window/object.
  285.     { MethodType=Property DesignTime=False }
  286.     Function ComWidth Returns Integer
  287.         Handle hDispatchDriver
  288.         Integer retVal
  289.         Get phDispatchDriver to hDispatchDriver
  290.         Get InvokeComMethod of hDispatchDriver 208 OLE_VT_I4 to retVal
  291.         Function_Return retVal
  292.     End_Function
  293.  
  294.     // The horizontal dimension (pixels) of the frame window/object.
  295.     { MethodType=Property DesignTime=False }
  296.     Procedure Set ComWidth Integer value
  297.         Handle hDispatchDriver
  298.         Get phDispatchDriver to hDispatchDriver
  299.         Send PrepareParams to hDispatchDriver 1
  300.         Set ComProperty of hDispatchDriver 208 OLE_VT_I4 to value
  301.     End_Procedure
  302.  
  303.     // The vertical dimension (pixels) of the frame window/object.
  304.     { MethodType=Property DesignTime=False }
  305.     Function ComHeight Returns Integer
  306.         Handle hDispatchDriver
  307.         Integer retVal
  308.         Get phDispatchDriver to hDispatchDriver
  309.         Get InvokeComMethod of hDispatchDriver 209 OLE_VT_I4 to retVal
  310.         Function_Return retVal
  311.     End_Function
  312.  
  313.     // The vertical dimension (pixels) of the frame window/object.
  314.     { MethodType=Property DesignTime=False }
  315.     Procedure Set ComHeight Integer value
  316.         Handle hDispatchDriver
  317.         Get phDispatchDriver to hDispatchDriver
  318.         Send PrepareParams to hDispatchDriver 1
  319.         Set ComProperty of hDispatchDriver 209 OLE_VT_I4 to value
  320.     End_Procedure
  321.  
  322.     // Gets the short (UI-friendly) name of the URL/file currently viewed.
  323.     { MethodType=Property DesignTime=False }
  324.     Function ComLocationName Returns String
  325.         Handle hDispatchDriver
  326.         String retVal
  327.         Get phDispatchDriver to hDispatchDriver
  328.         Get InvokeComMethod of hDispatchDriver 210 OLE_VT_BSTR to retVal
  329.         Function_Return retVal
  330.     End_Function
  331.  
  332.     // Gets the full URL/path currently viewed.
  333.     { MethodType=Property DesignTime=False }
  334.     Function ComLocationURL Returns String
  335.         Handle hDispatchDriver
  336.         String retVal
  337.         Get phDispatchDriver to hDispatchDriver
  338.         Get InvokeComMethod of hDispatchDriver 211 OLE_VT_BSTR to retVal
  339.         Function_Return retVal
  340.     End_Function
  341.  
  342.     // Query to see if something is still in progress.
  343.     { MethodType=Property DesignTime=False }
  344.     Function ComBusy Returns Boolean
  345.         Handle hDispatchDriver
  346.         Boolean retVal
  347.         Get phDispatchDriver to hDispatchDriver
  348.         Get InvokeComMethod of hDispatchDriver 212 OLE_VT_BOOL to retVal
  349.         Function_Return retVal
  350.     End_Function
  351.  
  352.     // Exits application and closes the open document.
  353.     Procedure ComQuit
  354.         Handle hDispatchDriver
  355.         Get phDispatchDriver to hDispatchDriver
  356.         Send InvokeComMethod to hDispatchDriver 300 OLE_VT_VOID
  357.     End_Procedure
  358.  
  359.     // Converts client sizes into window sizes.
  360.     Procedure ComClientToWindow Integer ByRef llpcx Integer ByRef llpcy
  361.         Handle hDispatchDriver
  362.         Get phDispatchDriver to hDispatchDriver
  363.         Send PrepareParams to hDispatchDriver 2
  364.         Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior OLE_VT_I4) llpcx
  365.         Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior OLE_VT_I4) llpcy
  366.         Send InvokeComMethod to hDispatchDriver 301 OLE_VT_VOID
  367.     End_Procedure
  368.  
  369.     // Associates vtValue with the name szProperty in the context of the object.
  370.     Procedure ComPutProperty String llProperty Variant llvtValue
  371.         Handle hDispatchDriver
  372.         Get phDispatchDriver to hDispatchDriver
  373.         Send PrepareParams to hDispatchDriver 2
  374.         Send DefineParam to hDispatchDriver OLE_VT_BSTR llProperty
  375.         Send DefineParam to hDispatchDriver OLE_VT_VARIANT llvtValue
  376.         Send InvokeComMethod to hDispatchDriver 302 OLE_VT_VOID
  377.     End_Procedure
  378.  
  379.     // Retrieve the Associated value for the property vtValue in the context of the object.
  380.     Function ComGetProperty String llProperty Returns Variant
  381.         Handle hDispatchDriver
  382.         Variant retVal
  383.         Get phDispatchDriver to hDispatchDriver
  384.         Send PrepareParams to hDispatchDriver 1
  385.         Send DefineParam to hDispatchDriver OLE_VT_BSTR llProperty
  386.         Get InvokeComMethod of hDispatchDriver 303 OLE_VT_VARIANT to retVal
  387.         Function_Return retVal
  388.     End_Function
  389.  
  390.     // Returns name of the application.
  391.     { MethodType=Property DesignTime=False }
  392.     Function ComName Returns String
  393.         Handle hDispatchDriver
  394.         String retVal
  395.         Get phDispatchDriver to hDispatchDriver
  396.         Get InvokeComMethod of hDispatchDriver 0 OLE_VT_BSTR to retVal
  397.         Function_Return retVal
  398.     End_Function
  399.  
  400.     // Returns the HWND of the current IE window.
  401.     { MethodType=Property DesignTime=False }
  402.     Function ComHWND Returns Integer
  403.         Handle hDispatchDriver
  404.         Integer retVal
  405.         Get phDispatchDriver to hDispatchDriver
  406.         Get InvokeComMethod of hDispatchDriver -515 OLE_VT_I4 to retVal
  407.         Function_Return retVal
  408.     End_Function
  409.  
  410.     // Returns file specification of the application, including path.
  411.     { MethodType=Property DesignTime=False }
  412.     Function ComFullName Returns String
  413.         Handle hDispatchDriver
  414.         String retVal
  415.         Get phDispatchDriver to hDispatchDriver
  416.         Get InvokeComMethod of hDispatchDriver 400 OLE_VT_BSTR to retVal
  417.         Function_Return retVal
  418.     End_Function
  419.  
  420.     // Returns the path to the application.
  421.     { MethodType=Property DesignTime=False }
  422.     Function ComPath Returns String
  423.         Handle hDispatchDriver
  424.         String retVal
  425.         Get phDispatchDriver to hDispatchDriver
  426.         Get InvokeComMethod of hDispatchDriver 401 OLE_VT_BSTR to retVal
  427.         Function_Return retVal
  428.     End_Function
  429.  
  430.     // Determines whether the application is visible or hidden.
  431.     { MethodType=Property DesignTime=False }
  432.     Function ComVisible Returns Boolean
  433.         Handle hDispatchDriver
  434.         Boolean retVal
  435.         Get phDispatchDriver to hDispatchDriver
  436.         Get InvokeComMethod of hDispatchDriver 402 OLE_VT_BOOL to retVal
  437.         Function_Return retVal
  438.     End_Function
  439.  
  440.     // Determines whether the application is visible or hidden.
  441.     { MethodType=Property DesignTime=False }
  442.     Procedure Set ComVisible Boolean value
  443.         Handle hDispatchDriver
  444.         Get phDispatchDriver to hDispatchDriver
  445.         Send PrepareParams to hDispatchDriver 1
  446.         Set ComProperty of hDispatchDriver 402 OLE_VT_BOOL to value
  447.     End_Procedure
  448.  
  449.     // Turn on or off the statusbar.
  450.     { MethodType=Property DesignTime=False }
  451.     Function ComStatusBar Returns Boolean
  452.         Handle hDispatchDriver
  453.         Boolean retVal
  454.         Get phDispatchDriver to hDispatchDriver
  455.         Get InvokeComMethod of hDispatchDriver 403 OLE_VT_BOOL to retVal
  456.         Function_Return retVal
  457.     End_Function
  458.  
  459.     // Turn on or off the statusbar.
  460.     { MethodType=Property DesignTime=False }
  461.     Procedure Set ComStatusBar Boolean value
  462.         Handle hDispatchDriver
  463.         Get phDispatchDriver to hDispatchDriver
  464.         Send PrepareParams to hDispatchDriver 1
  465.         Set ComProperty of hDispatchDriver 403 OLE_VT_BOOL to value
  466.     End_Procedure
  467.  
  468.     // Text of Status window.
  469.     { MethodType=Property DesignTime=False }
  470.     Function ComStatusText Returns String
  471.         Handle hDispatchDriver
  472.         String retVal
  473.         Get phDispatchDriver to hDispatchDriver
  474.         Get InvokeComMethod of hDispatchDriver 404 OLE_VT_BSTR to retVal
  475.         Function_Return retVal
  476.     End_Function
  477.  
  478.     // Text of Status window.
  479.     { MethodType=Property DesignTime=False }
  480.     Procedure Set ComStatusText String value
  481.         Handle hDispatchDriver
  482.         Get phDispatchDriver to hDispatchDriver
  483.         Send PrepareParams to hDispatchDriver 1
  484.         Set ComProperty of hDispatchDriver 404 OLE_VT_BSTR to value
  485.     End_Procedure
  486.  
  487.     // Controls which toolbar is shown.
  488.     { MethodType=Property DesignTime=False }
  489.     Function ComToolBar Returns Integer
  490.         Handle hDispatchDriver
  491.         Integer retVal
  492.         Get phDispatchDriver to hDispatchDriver
  493.         Get InvokeComMethod of hDispatchDriver 405 OLE_VT_I4 to retVal
  494.         Function_Return retVal
  495.     End_Function
  496.  
  497.     // Controls which toolbar is shown.
  498.     { MethodType=Property DesignTime=False }
  499.     Procedure Set ComToolBar Integer value
  500.         Handle hDispatchDriver
  501.         Get phDispatchDriver to hDispatchDriver
  502.         Send PrepareParams to hDispatchDriver 1
  503.         Set ComProperty of hDispatchDriver 405 OLE_VT_I4 to value
  504.     End_Procedure
  505.  
  506.     // Controls whether menubar is shown.
  507.     { MethodType=Property DesignTime=False }
  508.     Function ComMenuBar Returns Boolean
  509.         Handle hDispatchDriver
  510.         Boolean retVal
  511.         Get phDispatchDriver to hDispatchDriver
  512.         Get InvokeComMethod of hDispatchDriver 406 OLE_VT_BOOL to retVal
  513.         Function_Return retVal
  514.     End_Function
  515.  
  516.     // Controls whether menubar is shown.
  517.     { MethodType=Property DesignTime=False }
  518.     Procedure Set ComMenuBar Boolean value
  519.         Handle hDispatchDriver
  520.         Get phDispatchDriver to hDispatchDriver
  521.         Send PrepareParams to hDispatchDriver 1
  522.         Set ComProperty of hDispatchDriver 406 OLE_VT_BOOL to value
  523.     End_Procedure
  524.  
  525.     // Maximizes window and turns off statusbar, toolbar, menubar, and titlebar.
  526.     { MethodType=Property DesignTime=False }
  527.     Function ComFullScreen Returns Boolean
  528.         Handle hDispatchDriver
  529.         Boolean retVal
  530.         Get phDispatchDriver to hDispatchDriver
  531.         Get InvokeComMethod of hDispatchDriver 407 OLE_VT_BOOL to retVal
  532.         Function_Return retVal
  533.     End_Function
  534.  
  535.     // Maximizes window and turns off statusbar, toolbar, menubar, and titlebar.
  536.     { MethodType=Property DesignTime=False }
  537.     Procedure Set ComFullScreen Boolean value
  538.         Handle hDispatchDriver
  539.         Get phDispatchDriver to hDispatchDriver
  540.         Send PrepareParams to hDispatchDriver 1
  541.         Set ComProperty of hDispatchDriver 407 OLE_VT_BOOL to value
  542.     End_Procedure
  543.  
  544.     // Navigates to a URL or file or pidl.
  545.     Procedure ComNavigate2 Variant llURL Variant llFlags Variant llTargetFrameName Variant llPostData Variant llHeaders
  546.         Handle hDispatchDriver
  547.         Get phDispatchDriver to hDispatchDriver
  548.         Send PrepareParams to hDispatchDriver 5
  549.         Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior OLE_VT_VARIANT) llURL
  550.         Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior OLE_VT_VARIANT) llFlags
  551.         Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior OLE_VT_VARIANT) llTargetFrameName
  552.         Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior OLE_VT_VARIANT) llPostData
  553.         Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior OLE_VT_VARIANT) llHeaders
  554.         Send InvokeComMethod to hDispatchDriver 500 OLE_VT_VOID
  555.     End_Procedure
  556.  
  557.     // IOleCommandTarget::QueryStatus
  558.     Function ComQueryStatusWB OLEOLECMDID llcmdID Returns OLEOLECMDF
  559.         Handle hDispatchDriver
  560.         OLEOLECMDF retVal
  561.         Get phDispatchDriver to hDispatchDriver
  562.         Send PrepareParams to hDispatchDriver 1
  563.         Send DefineParam to hDispatchDriver OLE_VT_I4 llcmdID
  564.         Get InvokeComMethod of hDispatchDriver 501 OLE_VT_I4 to retVal
  565.         Function_Return retVal
  566.     End_Function
  567.  
  568.     // IOleCommandTarget::Exec
  569.     Procedure ComExecWB OLEOLECMDID llcmdID OLEOLECMDEXECOPT llcmdexecopt Variant llpvaIn Variant llpvaOut
  570.         Handle hDispatchDriver
  571.         Get phDispatchDriver to hDispatchDriver
  572.         Send PrepareParams to hDispatchDriver 4
  573.         Send DefineParam to hDispatchDriver OLE_VT_I4 llcmdID
  574.         Send DefineParam to hDispatchDriver OLE_VT_I4 llcmdexecopt
  575.         Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior OLE_VT_VARIANT) llpvaIn
  576.         Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior OLE_VT_VARIANT) llpvaOut
  577.         Send InvokeComMethod to hDispatchDriver 502 OLE_VT_VOID
  578.     End_Procedure
  579.  
  580.     // Set BrowserBar to Clsid
  581.     Procedure ComShowBrowserBar Variant llpvaClsid Variant llpvarShow Variant llpvarSize
  582.         Handle hDispatchDriver
  583.         Get phDispatchDriver to hDispatchDriver
  584.         Send PrepareParams to hDispatchDriver 3
  585.         Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior OLE_VT_VARIANT) llpvaClsid
  586.         Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior OLE_VT_VARIANT) llpvarShow
  587.         Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior OLE_VT_VARIANT) llpvarSize
  588.         Send InvokeComMethod to hDispatchDriver 503 OLE_VT_VOID
  589.     End_Procedure
  590.  
  591.     { MethodType=Property DesignTime=False }
  592.     Function ComReadyState Returns OLEtagREADYSTATE
  593.         Handle hDispatchDriver
  594.         OLEtagREADYSTATE retVal
  595.         Get phDispatchDriver to hDispatchDriver
  596.         Get InvokeComMethod of hDispatchDriver -525 OLE_VT_I4 to retVal
  597.         Function_Return retVal
  598.     End_Function
  599.  
  600.     // Controls if the frame is offline (read from cache)
  601.     { MethodType=Property DesignTime=False }
  602.     Function ComOffline Returns Boolean
  603.         Handle hDispatchDriver
  604.         Boolean retVal
  605.         Get phDispatchDriver to hDispatchDriver
  606.         Get InvokeComMethod of hDispatchDriver 550 OLE_VT_BOOL to retVal
  607.         Function_Return retVal
  608.     End_Function
  609.  
  610.     // Controls if the frame is offline (read from cache)
  611.     { MethodType=Property DesignTime=False }
  612.     Procedure Set ComOffline Boolean value
  613.         Handle hDispatchDriver
  614.         Get phDispatchDriver to hDispatchDriver
  615.         Send PrepareParams to hDispatchDriver 1
  616.         Set ComProperty of hDispatchDriver 550 OLE_VT_BOOL to value
  617.     End_Procedure
  618.  
  619.     // Controls if any dialog boxes can be shown
  620.     { MethodType=Property DesignTime=False }
  621.     Function ComSilent Returns Boolean
  622.         Handle hDispatchDriver
  623.         Boolean retVal
  624.         Get phDispatchDriver to hDispatchDriver
  625.         Get InvokeComMethod of hDispatchDriver 551 OLE_VT_BOOL to retVal
  626.         Function_Return retVal
  627.     End_Function
  628.  
  629.     // Controls if any dialog boxes can be shown
  630.     { MethodType=Property DesignTime=False }
  631.     Procedure Set ComSilent Boolean value
  632.         Handle hDispatchDriver
  633.         Get phDispatchDriver to hDispatchDriver
  634.         Send PrepareParams to hDispatchDriver 1
  635.         Set ComProperty of hDispatchDriver 551 OLE_VT_BOOL to value
  636.     End_Procedure
  637.  
  638.     // Registers OC as a top-level browser (for target name resolution)
  639.     { MethodType=Property DesignTime=False }
  640.     Function ComRegisterAsBrowser Returns Boolean
  641.         Handle hDispatchDriver
  642.         Boolean retVal
  643.         Get phDispatchDriver to hDispatchDriver
  644.         Get InvokeComMethod of hDispatchDriver 552 OLE_VT_BOOL to retVal
  645.         Function_Return retVal
  646.     End_Function
  647.  
  648.     // Registers OC as a top-level browser (for target name resolution)
  649.     { MethodType=Property DesignTime=False }
  650.     Procedure Set ComRegisterAsBrowser Boolean value
  651.         Handle hDispatchDriver
  652.         Get phDispatchDriver to hDispatchDriver
  653.         Send PrepareParams to hDispatchDriver 1
  654.         Set ComProperty of hDispatchDriver 552 OLE_VT_BOOL to value
  655.     End_Procedure
  656.  
  657.     // Registers OC as a drop target for navigation
  658.     { MethodType=Property DesignTime=False }
  659.     Function ComRegisterAsDropTarget Returns Boolean
  660.         Handle hDispatchDriver
  661.         Boolean retVal
  662.         Get phDispatchDriver to hDispatchDriver
  663.         Get InvokeComMethod of hDispatchDriver 553 OLE_VT_BOOL to retVal
  664.         Function_Return retVal
  665.     End_Function
  666.  
  667.     // Registers OC as a drop target for navigation
  668.     { MethodType=Property DesignTime=False }
  669.     Procedure Set ComRegisterAsDropTarget Boolean value
  670.         Handle hDispatchDriver
  671.         Get phDispatchDriver to hDispatchDriver
  672.         Send PrepareParams to hDispatchDriver 1
  673.         Set ComProperty of hDispatchDriver 553 OLE_VT_BOOL to value
  674.     End_Procedure
  675.  
  676.     // Controls if the browser is in theater mode
  677.     { MethodType=Property DesignTime=False }
  678.     Function ComTheaterMode Returns Boolean
  679.         Handle hDispatchDriver
  680.         Boolean retVal
  681.         Get phDispatchDriver to hDispatchDriver
  682.         Get InvokeComMethod of hDispatchDriver 554 OLE_VT_BOOL to retVal
  683.         Function_Return retVal
  684.     End_Function
  685.  
  686.     // Controls if the browser is in theater mode
  687.     { MethodType=Property DesignTime=False }
  688.     Procedure Set ComTheaterMode Boolean value
  689.         Handle hDispatchDriver
  690.         Get phDispatchDriver to hDispatchDriver
  691.         Send PrepareParams to hDispatchDriver 1
  692.         Set ComProperty of hDispatchDriver 554 OLE_VT_BOOL to value
  693.     End_Procedure
  694.  
  695.     // Controls whether address bar is shown
  696.     { MethodType=Property DesignTime=False }
  697.     Function ComAddressBar Returns Boolean
  698.         Handle hDispatchDriver
  699.         Boolean retVal
  700.         Get phDispatchDriver to hDispatchDriver
  701.         Get InvokeComMethod of hDispatchDriver 555 OLE_VT_BOOL to retVal
  702.         Function_Return retVal
  703.     End_Function
  704.  
  705.     // Controls whether address bar is shown
  706.     { MethodType=Property DesignTime=False }
  707.     Procedure Set ComAddressBar Boolean value
  708.         Handle hDispatchDriver
  709.         Get phDispatchDriver to hDispatchDriver
  710.         Send PrepareParams to hDispatchDriver 1
  711.         Set ComProperty of hDispatchDriver 555 OLE_VT_BOOL to value
  712.     End_Procedure
  713.  
  714.     // Controls whether the window is resizable
  715.     { MethodType=Property DesignTime=False }
  716.     Function ComResizable Returns Boolean
  717.         Handle hDispatchDriver
  718.         Boolean retVal
  719.         Get phDispatchDriver to hDispatchDriver
  720.         Get InvokeComMethod of hDispatchDriver 556 OLE_VT_BOOL to retVal
  721.         Function_Return retVal
  722.     End_Function
  723.  
  724.     // Controls whether the window is resizable
  725.     { MethodType=Property DesignTime=False }
  726.     Procedure Set ComResizable Boolean value
  727.         Handle hDispatchDriver
  728.         Get phDispatchDriver to hDispatchDriver
  729.         Send PrepareParams to hDispatchDriver 1
  730.         Set ComProperty of hDispatchDriver 556 OLE_VT_BOOL to value
  731.     End_Procedure
  732. End_Class
  733.  
  734. // CLSID: {34A715A0-6587-11D0-924A-0020AFC7AC4D}
  735. // Web Browser Control events interface
  736. Class cComDWebBrowserEvents2 is a Mixin
  737.  
  738.     // Statusbar text changed.
  739.     { MethodType=Event }
  740.     Procedure OnComStatusTextChange String llText
  741.     End_Procedure
  742.  
  743.     // Fired when download progress is updated.
  744.     { MethodType=Event }
  745.     Procedure OnComProgressChange Integer llProgress Integer llProgressMax
  746.     End_Procedure
  747.  
  748.     // The enabled state of a command changed.
  749.     { MethodType=Event }
  750.     Procedure OnComCommandStateChange Integer llCommand Boolean llEnable
  751.     End_Procedure
  752.  
  753.     // Download of a page started.
  754.     { MethodType=Event }
  755.     Procedure OnComDownloadBegin
  756.     End_Procedure
  757.  
  758.     // Download of page complete.
  759.     { MethodType=Event }
  760.     Procedure OnComDownloadComplete
  761.     End_Procedure
  762.  
  763.     // Document title changed.
  764.     { MethodType=Event }
  765.     Procedure OnComTitleChange String llText
  766.     End_Procedure
  767.  
  768.     // Fired when the PutProperty method has been called.
  769.     { MethodType=Event }
  770.     Procedure OnComPropertyChange String llszProperty
  771.     End_Procedure
  772.  
  773.     // Fired before navigate occurs in the given WebBrowser (window or frameset element). The processing of this navigation may be modified.
  774.     { MethodType=Event }
  775.     Procedure OnComBeforeNavigate2 Variant llpDisp Variant llURL Variant llFlags Variant llTargetFrameName Variant llPostData Variant llHeaders Boolean ByRef llCancel
  776.     End_Procedure
  777.  
  778.     // A new, hidden, non-navigated WebBrowser window is needed.
  779.     { MethodType=Event }
  780.     Procedure OnComNewWindow2 Variant llppDisp Boolean ByRef llCancel
  781.     End_Procedure
  782.  
  783.     // Fired when the document being navigated to becomes visible and enters the navigation stack.
  784.     { MethodType=Event }
  785.     Procedure OnComNavigateComplete2 Variant llpDisp Variant llURL
  786.     End_Procedure
  787.  
  788.     // Fired when the document being navigated to reaches ReadyState_Complete.
  789.     { MethodType=Event }
  790.     Procedure OnComDocumentComplete Variant llpDisp Variant llURL
  791.     End_Procedure
  792.  
  793.     // Fired when application is quiting.
  794.     { MethodType=Event }
  795.     Procedure OnComQuit
  796.     End_Procedure
  797.  
  798.     // Fired when the window should be shown/hidden
  799.     { MethodType=Event }
  800.     Procedure OnComVisible Boolean llVisible
  801.     End_Procedure
  802.  
  803.     // Fired when the toolbar  should be shown/hidden
  804.     { MethodType=Event }
  805.     Procedure OnComToolBar Boolean llToolBar
  806.     End_Procedure
  807.  
  808.     // Fired when the menubar should be shown/hidden
  809.     { MethodType=Event }
  810.     Procedure OnComMenuBar Boolean llMenuBar
  811.     End_Procedure
  812.  
  813.     // Fired when the statusbar should be shown/hidden
  814.     { MethodType=Event }
  815.     Procedure OnComStatusBar Boolean llStatusBar
  816.     End_Procedure
  817.  
  818.     // Fired when fullscreen mode should be on/off
  819.     { MethodType=Event }
  820.     Procedure OnComFullScreen Boolean llFullScreen
  821.     End_Procedure
  822.  
  823.     // Fired when theater mode should be on/off
  824.     { MethodType=Event }
  825.     Procedure OnComTheaterMode Boolean llTheaterMode
  826.     End_Procedure
  827.  
  828.     // Fired when the host window should allow/disallow resizing
  829.     { MethodType=Event }
  830.     Procedure OnComWindowSetResizable Boolean llResizable
  831.     End_Procedure
  832.  
  833.     // Fired when the host window should change its Left coordinate
  834.     { MethodType=Event }
  835.     Procedure OnComWindowSetLeft Integer llLeft
  836.     End_Procedure
  837.  
  838.     // Fired when the host window should change its Top coordinate
  839.     { MethodType=Event }
  840.     Procedure OnComWindowSetTop Integer llTop
  841.     End_Procedure
  842.  
  843.     // Fired when the host window should change its width
  844.     { MethodType=Event }
  845.     Procedure OnComWindowSetWidth Integer llWidth
  846.     End_Procedure
  847.  
  848.     // Fired when the host window should change its height
  849.     { MethodType=Event }
  850.     Procedure OnComWindowSetHeight Integer llHeight
  851.     End_Procedure
  852.  
  853.     // Fired when the WebBrowser is about to be closed by script
  854.     { MethodType=Event }
  855.     Procedure OnComWindowClosing Boolean llIsChildWindow Boolean ByRef llCancel
  856.     End_Procedure
  857.  
  858.     // Fired to request client sizes be converted to host window sizes
  859.     { MethodType=Event }
  860.     Procedure OnComClientToHostWindow Integer ByRef llCX Integer ByRef llCY
  861.     End_Procedure
  862.  
  863.     // Fired to indicate the security level of the current web page contents
  864.     { MethodType=Event }
  865.     Procedure OnComSetSecureLockIcon Integer llSecureLockIcon
  866.     End_Procedure
  867.  
  868.     // Fired to indicate the File Download dialog is opening
  869.     { MethodType=Event }
  870.     Procedure OnComFileDownload Boolean ByRef llCancel
  871.     End_Procedure
  872.  
  873.     // Fired when a binding error occurs (window or frameset element).
  874.     { MethodType=Event }
  875.     Procedure OnComNavigateError Variant llpDisp Variant llURL Variant llFrame Variant llStatusCode Boolean ByRef llCancel
  876.     End_Procedure
  877.  
  878.     // Fired when a print template is instantiated.
  879.     { MethodType=Event }
  880.     Procedure OnComPrintTemplateInstantiation Variant llpDisp
  881.     End_Procedure
  882.  
  883.     // Fired when a print template destroyed.
  884.     { MethodType=Event }
  885.     Procedure OnComPrintTemplateTeardown Variant llpDisp
  886.     End_Procedure
  887.  
  888.     // Fired when a page is spooled. When it is fired can be changed by a custom template.
  889.     { MethodType=Event }
  890.     Procedure OnComUpdatePageStatus Variant llpDisp Variant llnPage Variant llfDone
  891.     End_Procedure
  892.  
  893.     // Fired when the global privacy impacted state changes
  894.     { MethodType=Event }
  895.     Procedure OnComPrivacyImpactedStateChange Boolean llbImpacted
  896.     End_Procedure
  897.  
  898.     // A new, hidden, non-navigated WebBrowser window is needed.
  899.     { MethodType=Event }
  900.     Procedure OnComNewWindow3 Variant llppDisp Boolean ByRef llCancel UInteger lldwFlags String llbstrUrlContext String llbstrUrl
  901.     End_Procedure
  902.  
  903.     { Visibility=Private }
  904.     Procedure RegisterComEvents
  905.         Send RegisterComEvent 102 msg_OnComStatusTextChange
  906.         Send RegisterComEvent 108 msg_OnComProgressChange
  907.         Send RegisterComEvent 105 msg_OnComCommandStateChange
  908.         Send RegisterComEvent 106 msg_OnComDownloadBegin
  909.         Send RegisterComEvent 104 msg_OnComDownloadComplete
  910.         Send RegisterComEvent 113 msg_OnComTitleChange
  911.         Send RegisterComEvent 112 msg_OnComPropertyChange
  912.         Send RegisterComEvent 250 msg_OnComBeforeNavigate2
  913.         Send RegisterComEvent 251 msg_OnComNewWindow2
  914.         Send RegisterComEvent 252 msg_OnComNavigateComplete2
  915.         Send RegisterComEvent 259 msg_OnComDocumentComplete
  916.         Send RegisterComEvent 253 msg_OnComQuit
  917.         Send RegisterComEvent 254 msg_OnComVisible
  918.         Send RegisterComEvent 255 msg_OnComToolBar
  919.         Send RegisterComEvent 256 msg_OnComMenuBar
  920.         Send RegisterComEvent 257 msg_OnComStatusBar
  921.         Send RegisterComEvent 258 msg_OnComFullScreen
  922.         Send RegisterComEvent 260 msg_OnComTheaterMode
  923.         Send RegisterComEvent 262 msg_OnComWindowSetResizable
  924.         Send RegisterComEvent 264 msg_OnComWindowSetLeft
  925.         Send RegisterComEvent 265 msg_OnComWindowSetTop
  926.         Send RegisterComEvent 266 msg_OnComWindowSetWidth
  927.         Send RegisterComEvent 267 msg_OnComWindowSetHeight
  928.         Send RegisterComEvent 263 msg_OnComWindowClosing
  929.         Send RegisterComEvent 268 msg_OnComClientToHostWindow
  930.         Send RegisterComEvent 269 msg_OnComSetSecureLockIcon
  931.         Send RegisterComEvent 270 msg_OnComFileDownload
  932.         Send RegisterComEvent 271 msg_OnComNavigateError
  933.         Send RegisterComEvent 225 msg_OnComPrintTemplateInstantiation
  934.         Send RegisterComEvent 226 msg_OnComPrintTemplateTeardown
  935.         Send RegisterComEvent 227 msg_OnComUpdatePageStatus
  936.         Send RegisterComEvent 272 msg_OnComPrivacyImpactedStateChange
  937.         Send RegisterComEvent 273 msg_OnComNewWindow3
  938.     End_Procedure
  939. End_Class
  940.  
  941. // CoClass
  942. // ProgID: Shell.Explorer.2
  943. // CLSID: {8856F961-340A-11D0-A96B-00C04FD705A2}
  944. // WebBrowser Control
  945. { CLSID="{8856F961-340A-11D0-A96B-00C04FD705A2}" }
  946. Class cComWebBrowser is a cComActiveXControl
  947.     Import_Class_Protocol cComIWebBrowser2
  948.     Import_Class_Protocol cComDWebBrowserEvents2
  949.  
  950.     Procedure Construct_Object
  951.         Forward Send Construct_Object
  952.         Set psProgID to "{8856F961-340A-11D0-A96B-00C04FD705A2}"
  953.         Set psEventId to "{34A715A0-6587-11D0-924A-0020AFC7AC4D}"
  954.         Set peAutoCreate to acDeferredAutoCreate
  955.     End_Procedure
  956. End_Class
  957.  
  958. // CoClass
  959. // ProgID: InternetExplorer.Application.1
  960. // CLSID: {0002DF01-0000-0000-C000-000000000046}
  961. // Internet Explorer Application.
  962. Class cComInternetExplorer is a cComAutomationObject
  963.     Import_Class_Protocol cComIWebBrowser2
  964.     Import_Class_Protocol cComDWebBrowserEvents2
  965.  
  966.     Procedure Construct_Object
  967.         Forward Send Construct_Object
  968.         Set psProgID to "{0002DF01-0000-0000-C000-000000000046}"
  969.         Set psEventId to "{34A715A0-6587-11D0-924A-0020AFC7AC4D}"
  970.         Set peAutoCreate to acNoAutoCreate
  971.     End_Procedure
  972. End_Class
  973.  
  974. // CLSID: {85CB6900-4D95-11CF-960C-0080C7F4EE85}
  975. // Definition of interface IShellWindows
  976. Class cComIShellWindows is a Mixin
  977.  
  978.     // Get count of open Shell windows
  979.     { MethodType=Property DesignTime=False }
  980.     Function ComCount Returns Integer
  981.         Handle hDispatchDriver
  982.         Integer retVal
  983.         Get phDispatchDriver to hDispatchDriver
  984.         Get InvokeComMethod of hDispatchDriver 1610743808 OLE_VT_I4 to retVal
  985.         Function_Return retVal
  986.     End_Function
  987.  
  988.     // Return the shell window for the given index
  989.     Function ComItem Variant llindex Returns Variant
  990.         Handle hDispatchDriver
  991.         Variant retVal
  992.         Get phDispatchDriver to hDispatchDriver
  993.         Send PrepareParams to hDispatchDriver 1
  994.         Send DefineParam to hDispatchDriver OLE_VT_VARIANT llindex
  995.         Get InvokeComMethod of hDispatchDriver 0 OLE_VT_DISPATCH to retVal
  996.         Function_Return retVal
  997.     End_Function
  998.  
  999.     // Enumerates the figures
  1000.     Function Com_NewEnum Returns Variant
  1001.         Handle hDispatchDriver
  1002.         Variant retVal
  1003.         Get phDispatchDriver to hDispatchDriver
  1004.         Get InvokeComMethod of hDispatchDriver -4 OLE_VT_UNKNOWN to retVal
  1005.         Function_Return retVal
  1006.     End_Function
  1007. End_Class
  1008.  
  1009. // CLSID: {FE4106E0-399A-11D0-A48C-00A0C90A8F39}
  1010. // Event interface for IShellWindows
  1011. Class cComDShellWindowsEvents is a Mixin
  1012.  
  1013.     // A new window was registered.
  1014.     { MethodType=Event }
  1015.     Procedure OnComWindowRegistered Integer lllCookie
  1016.     End_Procedure
  1017.  
  1018.     // A new window was revoked.
  1019.     { MethodType=Event }
  1020.     Procedure OnComWindowRevoked Integer lllCookie
  1021.     End_Procedure
  1022.  
  1023.     { Visibility=Private }
  1024.     Procedure RegisterComEvents
  1025.         Send RegisterComEvent 200 msg_OnComWindowRegistered
  1026.         Send RegisterComEvent 201 msg_OnComWindowRevoked
  1027.     End_Procedure
  1028. End_Class
  1029.  
  1030. // CoClass
  1031. // CLSID: {9BA05972-F6A8-11CF-A442-00A0C90A8F39}
  1032. // ShellDispatch Load in Shell Context
  1033. Class cComShellWindows is a cComAutomationObject
  1034.     Import_Class_Protocol cComIShellWindows
  1035.     Import_Class_Protocol cComDShellWindowsEvents
  1036.  
  1037.     Procedure Construct_Object
  1038.         Forward Send Construct_Object
  1039.         Set psProgID to "{9BA05972-F6A8-11CF-A442-00A0C90A8F39}"
  1040.         Set psEventId to "{FE4106E0-399A-11D0-A48C-00A0C90A8F39}"
  1041.         Set peAutoCreate to acNoAutoCreate
  1042.     End_Procedure
  1043. End_Class
  1044.  
  1045. // CLSID: {729FE2F8-1EA8-11D1-8F85-00C04FC2FBE1}
  1046. // Shell UI Helper Control Interface
  1047. Class cComIShellUIHelper is a Mixin
  1048.  
  1049.     Procedure ComAddFavorite String llURL Variant llTitle
  1050.         Handle hDispatchDriver
  1051.         Get phDispatchDriver to hDispatchDriver
  1052.         Send PrepareParams to hDispatchDriver 2
  1053.         Send DefineParam to hDispatchDriver OLE_VT_BSTR llURL
  1054.         Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior OLE_VT_VARIANT) llTitle
  1055.         Send InvokeComMethod to hDispatchDriver 4 OLE_VT_VOID
  1056.     End_Procedure
  1057.  
  1058.     Procedure ComAddChannel String llURL
  1059.         Handle hDispatchDriver
  1060.         Get phDispatchDriver to hDispatchDriver
  1061.         Send PrepareParams to hDispatchDriver 1
  1062.         Send DefineParam to hDispatchDriver OLE_VT_BSTR llURL
  1063.         Send InvokeComMethod to hDispatchDriver 5 OLE_VT_VOID
  1064.     End_Procedure
  1065.  
  1066.     Procedure ComAddDesktopComponent String llURL String llType Variant llLeft Variant llTop Variant llWidth Variant llHeight
  1067.         Handle hDispatchDriver
  1068.         Get phDispatchDriver to hDispatchDriver
  1069.         Send PrepareParams to hDispatchDriver 6
  1070.         Send DefineParam to hDispatchDriver OLE_VT_BSTR llURL
  1071.         Send DefineParam to hDispatchDriver OLE_VT_BSTR llType
  1072.         Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior OLE_VT_VARIANT) llLeft
  1073.         Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior OLE_VT_VARIANT) llTop
  1074.         Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior OLE_VT_VARIANT) llWidth
  1075.         Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior OLE_VT_VARIANT) llHeight
  1076.         Send InvokeComMethod to hDispatchDriver 6 OLE_VT_VOID
  1077.     End_Procedure
  1078.  
  1079.     Function ComIsSubscribed String llURL Returns Boolean
  1080.         Handle hDispatchDriver
  1081.         Boolean retVal
  1082.         Get phDispatchDriver to hDispatchDriver
  1083.         Send PrepareParams to hDispatchDriver 1
  1084.         Send DefineParam to hDispatchDriver OLE_VT_BSTR llURL
  1085.         Get InvokeComMethod of hDispatchDriver 7 OLE_VT_BOOL to retVal
  1086.         Function_Return retVal
  1087.     End_Function
  1088.  
  1089.     Procedure ComNavigateAndFind String llURL String llstrQuery Variant llvarTargetFrame
  1090.         Handle hDispatchDriver
  1091.         Get phDispatchDriver to hDispatchDriver
  1092.         Send PrepareParams to hDispatchDriver 3
  1093.         Send DefineParam to hDispatchDriver OLE_VT_BSTR llURL
  1094.         Send DefineParam to hDispatchDriver OLE_VT_BSTR llstrQuery
  1095.         Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior OLE_VT_VARIANT) llvarTargetFrame
  1096.         Send InvokeComMethod to hDispatchDriver 8 OLE_VT_VOID
  1097.     End_Procedure
  1098.  
  1099.     Procedure ComImportExportFavorites Boolean llfImport String llstrImpExpPath
  1100.         Handle hDispatchDriver
  1101.         Get phDispatchDriver to hDispatchDriver
  1102.         Send PrepareParams to hDispatchDriver 2
  1103.         Send DefineParam to hDispatchDriver OLE_VT_BOOL llfImport
  1104.         Send DefineParam to hDispatchDriver OLE_VT_BSTR llstrImpExpPath
  1105.         Send InvokeComMethod to hDispatchDriver 9 OLE_VT_VOID
  1106.     End_Procedure
  1107.  
  1108.     Procedure ComAutoCompleteSaveForm Variant llForm
  1109.         Handle hDispatchDriver
  1110.         Get phDispatchDriver to hDispatchDriver
  1111.         Send PrepareParams to hDispatchDriver 1
  1112.         Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior OLE_VT_VARIANT) llForm
  1113.         Send InvokeComMethod to hDispatchDriver 10 OLE_VT_VOID
  1114.     End_Procedure
  1115.  
  1116.     Procedure ComAutoScan String llstrSearch String llstrFailureUrl Variant llpvarTargetFrame
  1117.         Handle hDispatchDriver
  1118.         Get phDispatchDriver to hDispatchDriver
  1119.         Send PrepareParams to hDispatchDriver 3
  1120.         Send DefineParam to hDispatchDriver OLE_VT_BSTR llstrSearch
  1121.         Send DefineParam to hDispatchDriver OLE_VT_BSTR llstrFailureUrl
  1122.         Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior OLE_VT_VARIANT) llpvarTargetFrame
  1123.         Send InvokeComMethod to hDispatchDriver 11 OLE_VT_VOID
  1124.     End_Procedure
  1125.  
  1126.     Function ComShowBrowserUI String llbstrName Variant llpvarIn Returns Variant
  1127.         Handle hDispatchDriver
  1128.         Variant retVal
  1129.         Get phDispatchDriver to hDispatchDriver
  1130.         Send PrepareParams to hDispatchDriver 2
  1131.         Send DefineParam to hDispatchDriver OLE_VT_BSTR llbstrName
  1132.         Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior OLE_VT_VARIANT) llpvarIn
  1133.         Get InvokeComMethod of hDispatchDriver 13 OLE_VT_VARIANT to retVal
  1134.         Function_Return retVal
  1135.     End_Function
  1136. End_Class
  1137.  
  1138. // CoClass
  1139. // ProgID: Shell.UIHelper.1
  1140. // CLSID: {64AB4BB7-111E-11D1-8F79-00C04FC2FBE1}
  1141. Class cComShellUIHelper is a cComAutomationObject
  1142.     Import_Class_Protocol cComIShellUIHelper
  1143.  
  1144.     Procedure Construct_Object
  1145.         Forward Send Construct_Object
  1146.         Set psProgID to "{64AB4BB7-111E-11D1-8F79-00C04FC2FBE1}"
  1147.         Set peAutoCreate to acNoAutoCreate
  1148.     End_Procedure
  1149. End_Class
  1150.  
  1151. // CLSID: {E572D3C9-37BE-4AE2-825D-D521763E3108}
  1152. // IShellNameSpace Interface
  1153. Class cComIShellNameSpace is a Mixin
  1154.  
  1155.     // method MoveSelectionUp
  1156.     Procedure ComMoveSelectionUp
  1157.         Handle hDispatchDriver
  1158.         Get phDispatchDriver to hDispatchDriver
  1159.         Send InvokeComMethod to hDispatchDriver 1 OLE_VT_VOID
  1160.     End_Procedure
  1161.  
  1162.     // method MoveSelectionDown
  1163.     Procedure ComMoveSelectionDown
  1164.         Handle hDispatchDriver
  1165.         Get phDispatchDriver to hDispatchDriver
  1166.         Send InvokeComMethod to hDispatchDriver 2 OLE_VT_VOID
  1167.     End_Procedure
  1168.  
  1169.     // method ResetSort
  1170.     Procedure ComResetSort
  1171.         Handle hDispatchDriver
  1172.         Get phDispatchDriver to hDispatchDriver
  1173.         Send InvokeComMethod to hDispatchDriver 3 OLE_VT_VOID
  1174.     End_Procedure
  1175.  
  1176.     // method NewFolder
  1177.     Procedure ComNewFolder
  1178.         Handle hDispatchDriver
  1179.         Get phDispatchDriver to hDispatchDriver
  1180.         Send InvokeComMethod to hDispatchDriver 4 OLE_VT_VOID
  1181.     End_Procedure
  1182.  
  1183.     // method Synchronize
  1184.     Procedure ComSynchronize
  1185.         Handle hDispatchDriver
  1186.         Get phDispatchDriver to hDispatchDriver
  1187.         Send InvokeComMethod to hDispatchDriver 5 OLE_VT_VOID
  1188.     End_Procedure
  1189.  
  1190.     // method Import
  1191.     Procedure ComImport
  1192.         Handle hDispatchDriver
  1193.         Get phDispatchDriver to hDispatchDriver
  1194.         Send InvokeComMethod to hDispatchDriver 6 OLE_VT_VOID
  1195.     End_Procedure
  1196.  
  1197.     // method Export
  1198.     Procedure ComExport
  1199.         Handle hDispatchDriver
  1200.         Get phDispatchDriver to hDispatchDriver
  1201.         Send InvokeComMethod to hDispatchDriver 7 OLE_VT_VOID
  1202.     End_Procedure
  1203.  
  1204.     // method InvokeContextMenuCommand
  1205.     Procedure ComInvokeContextMenuCommand String llstrCommand
  1206.         Handle hDispatchDriver
  1207.         Get phDispatchDriver to hDispatchDriver
  1208.         Send PrepareParams to hDispatchDriver 1
  1209.         Send DefineParam to hDispatchDriver OLE_VT_BSTR llstrCommand
  1210.         Send InvokeComMethod to hDispatchDriver 8 OLE_VT_VOID
  1211.     End_Procedure
  1212.  
  1213.     // method MoveSelectionTo
  1214.     Procedure ComMoveSelectionTo
  1215.         Handle hDispatchDriver
  1216.         Get phDispatchDriver to hDispatchDriver
  1217.         Send InvokeComMethod to hDispatchDriver 9 OLE_VT_VOID
  1218.     End_Procedure
  1219.  
  1220.     // Query to see if subscriptions are enabled
  1221.     { MethodType=Property DesignTime=False }
  1222.     Function ComSubscriptionsEnabled Returns Boolean
  1223.         Handle hDispatchDriver
  1224.         Boolean retVal
  1225.         Get phDispatchDriver to hDispatchDriver
  1226.         Get InvokeComMethod of hDispatchDriver 10 OLE_VT_BOOL to retVal
  1227.         Function_Return retVal
  1228.     End_Function
  1229.  
  1230.     // method CreateSubscriptionForSelection
  1231.     Function ComCreateSubscriptionForSelection Returns Boolean
  1232.         Handle hDispatchDriver
  1233.         Boolean retVal
  1234.         Get phDispatchDriver to hDispatchDriver
  1235.         Get InvokeComMethod of hDispatchDriver 11 OLE_VT_BOOL to retVal
  1236.         Function_Return retVal
  1237.     End_Function
  1238.  
  1239.     // method DeleteSubscriptionForSelection
  1240.     Function ComDeleteSubscriptionForSelection Returns Boolean
  1241.         Handle hDispatchDriver
  1242.         Boolean retVal
  1243.         Get phDispatchDriver to hDispatchDriver
  1244.         Get InvokeComMethod of hDispatchDriver 12 OLE_VT_BOOL to retVal
  1245.         Function_Return retVal
  1246.     End_Function
  1247.  
  1248.     // old, use put_Root() instead
  1249.     Procedure ComSetRoot String llbstrFullPath
  1250.         Handle hDispatchDriver
  1251.         Get phDispatchDriver to hDispatchDriver
  1252.         Send PrepareParams to hDispatchDriver 1
  1253.         Send DefineParam to hDispatchDriver OLE_VT_BSTR llbstrFullPath
  1254.         Send InvokeComMethod to hDispatchDriver 13 OLE_VT_VOID
  1255.     End_Procedure
  1256.  
  1257.     // options 
  1258.     { MethodType=Property DesignTime=False }
  1259.     Function ComEnumOptions Returns Integer
  1260.         Handle hDispatchDriver
  1261.         Integer retVal
  1262.         Get phDispatchDriver to hDispatchDriver
  1263.         Get InvokeComMethod of hDispatchDriver 14 OLE_VT_I4 to retVal
  1264.         Function_Return retVal
  1265.     End_Function
  1266.  
  1267.     // options 
  1268.     { MethodType=Property DesignTime=False }
  1269.     Procedure Set ComEnumOptions Integer value
  1270.         Handle hDispatchDriver
  1271.         Get phDispatchDriver to hDispatchDriver
  1272.         Send PrepareParams to hDispatchDriver 1
  1273.         Set ComProperty of hDispatchDriver 14 OLE_VT_I4 to value
  1274.     End_Procedure
  1275.  
  1276.     // get the selected item
  1277.     { MethodType=Property DesignTime=False }
  1278.     Function ComSelectedItem Returns Variant
  1279.         Handle hDispatchDriver
  1280.         Variant retVal
  1281.         Get phDispatchDriver to hDispatchDriver
  1282.         Get InvokeComMethod of hDispatchDriver 15 OLE_VT_DISPATCH to retVal
  1283.         Function_Return retVal
  1284.     End_Function
  1285.  
  1286.     // get the selected item
  1287.     { MethodType=Property DesignTime=False }
  1288.     Procedure Set ComSelectedItem Variant value
  1289.         Handle hDispatchDriver
  1290.         Get phDispatchDriver to hDispatchDriver
  1291.         Send PrepareParams to hDispatchDriver 1
  1292.         Set ComProperty of hDispatchDriver 15 OLE_VT_DISPATCH to value
  1293.     End_Procedure
  1294.  
  1295.     // get the root item
  1296.     { MethodType=Property DesignTime=False }
  1297.     Function ComRoot Returns Variant
  1298.         Handle hDispatchDriver
  1299.         Variant retVal
  1300.         Get phDispatchDriver to hDispatchDriver
  1301.         Get InvokeComMethod of hDispatchDriver 16 OLE_VT_VARIANT to retVal
  1302.         Function_Return retVal
  1303.     End_Function
  1304.  
  1305.     // get the root item
  1306.     { MethodType=Property DesignTime=False }
  1307.     Procedure Set ComRoot Variant value
  1308.         Handle hDispatchDriver
  1309.         Get phDispatchDriver to hDispatchDriver
  1310.         Send PrepareParams to hDispatchDriver 1
  1311.         Set ComProperty of hDispatchDriver 16 OLE_VT_VARIANT to value
  1312.     End_Procedure
  1313.  
  1314.     { MethodType=Property DesignTime=False }
  1315.     Function ComDepth Returns Integer
  1316.         Handle hDispatchDriver
  1317.         Integer retVal
  1318.         Get phDispatchDriver to hDispatchDriver
  1319.         Get InvokeComMethod of hDispatchDriver 17 OLE_VT_I4 to retVal
  1320.         Function_Return retVal
  1321.     End_Function
  1322.  
  1323.     { MethodType=Property DesignTime=False }
  1324.     Procedure Set ComDepth Integer value
  1325.         Handle hDispatchDriver
  1326.         Get phDispatchDriver to hDispatchDriver
  1327.         Send PrepareParams to hDispatchDriver 1
  1328.         Set ComProperty of hDispatchDriver 17 OLE_VT_I4 to value
  1329.     End_Procedure
  1330.  
  1331.     { MethodType=Property DesignTime=False }
  1332.     Function ComMode Returns UInteger
  1333.         Handle hDispatchDriver
  1334.         UInteger retVal
  1335.         Get phDispatchDriver to hDispatchDriver
  1336.         Get InvokeComMethod of hDispatchDriver 18 OLE_VT_UI4 to retVal
  1337.         Function_Return retVal
  1338.     End_Function
  1339.  
  1340.     { MethodType=Property DesignTime=False }
  1341.     Procedure Set ComMode UInteger value
  1342.         Handle hDispatchDriver
  1343.         Get phDispatchDriver to hDispatchDriver
  1344.         Send PrepareParams to hDispatchDriver 1
  1345.         Set ComProperty of hDispatchDriver 18 OLE_VT_UI4 to value
  1346.     End_Procedure
  1347.  
  1348.     { MethodType=Property DesignTime=False }
  1349.     Function ComFlags Returns UInteger
  1350.         Handle hDispatchDriver
  1351.         UInteger retVal
  1352.         Get phDispatchDriver to hDispatchDriver
  1353.         Get InvokeComMethod of hDispatchDriver 19 OLE_VT_UI4 to retVal
  1354.         Function_Return retVal
  1355.     End_Function
  1356.  
  1357.     { MethodType=Property DesignTime=False }
  1358.     Procedure Set ComFlags UInteger value
  1359.         Handle hDispatchDriver
  1360.         Get phDispatchDriver to hDispatchDriver
  1361.         Send PrepareParams to hDispatchDriver 1
  1362.         Set ComProperty of hDispatchDriver 19 OLE_VT_UI4 to value
  1363.     End_Procedure
  1364.  
  1365.     { MethodType=Property DesignTime=False }
  1366.     Procedure Set ComTVFlags UInteger value
  1367.         Handle hDispatchDriver
  1368.         Get phDispatchDriver to hDispatchDriver
  1369.         Send PrepareParams to hDispatchDriver 1
  1370.         Set ComProperty of hDispatchDriver 20 OLE_VT_UI4 to value
  1371.     End_Procedure
  1372.  
  1373.     { MethodType=Property DesignTime=False }
  1374.     Function ComTVFlags Returns UInteger
  1375.         Handle hDispatchDriver
  1376.         UInteger retVal
  1377.         Get phDispatchDriver to hDispatchDriver
  1378.         Get InvokeComMethod of hDispatchDriver 20 OLE_VT_UI4 to retVal
  1379.         Function_Return retVal
  1380.     End_Function
  1381.  
  1382.     { MethodType=Property DesignTime=False }
  1383.     Function ComColumns Returns String
  1384.         Handle hDispatchDriver
  1385.         String retVal
  1386.         Get phDispatchDriver to hDispatchDriver
  1387.         Get InvokeComMethod of hDispatchDriver 21 OLE_VT_BSTR to retVal
  1388.         Function_Return retVal
  1389.     End_Function
  1390.  
  1391.     { MethodType=Property DesignTime=False }
  1392.     Procedure Set ComColumns String value
  1393.         Handle hDispatchDriver
  1394.         Get phDispatchDriver to hDispatchDriver
  1395.         Send PrepareParams to hDispatchDriver 1
  1396.         Set ComProperty of hDispatchDriver 21 OLE_VT_BSTR to value
  1397.     End_Procedure
  1398.  
  1399.     // number of view types
  1400.     { MethodType=Property DesignTime=False }
  1401.     Function ComCountViewTypes Returns Integer
  1402.         Handle hDispatchDriver
  1403.         Integer retVal
  1404.         Get phDispatchDriver to hDispatchDriver
  1405.         Get InvokeComMethod of hDispatchDriver 22 OLE_VT_I4 to retVal
  1406.         Function_Return retVal
  1407.     End_Function
  1408.  
  1409.     // set view type
  1410.     Procedure ComSetViewType Integer lliType
  1411.         Handle hDispatchDriver
  1412.         Get phDispatchDriver to hDispatchDriver
  1413.         Send PrepareParams to hDispatchDriver 1
  1414.         Send DefineParam to hDispatchDriver OLE_VT_I4 lliType
  1415.         Send InvokeComMethod to hDispatchDriver 23 OLE_VT_VOID
  1416.     End_Procedure
  1417.  
  1418.     // collection of selected items
  1419.     Function ComSelectedItems Returns Variant
  1420.         Handle hDispatchDriver
  1421.         Variant retVal
  1422.         Get phDispatchDriver to hDispatchDriver
  1423.         Get InvokeComMethod of hDispatchDriver 24 OLE_VT_DISPATCH to retVal
  1424.         Function_Return retVal
  1425.     End_Function
  1426.  
  1427.     // expands item specified depth
  1428.     Procedure ComExpand Variant llvar Integer lliDepth
  1429.         Handle hDispatchDriver
  1430.         Get phDispatchDriver to hDispatchDriver
  1431.         Send PrepareParams to hDispatchDriver 2
  1432.         Send DefineParam to hDispatchDriver OLE_VT_VARIANT llvar
  1433.         Send DefineParam to hDispatchDriver OLE_VT_I4 lliDepth
  1434.         Send InvokeComMethod to hDispatchDriver 25 OLE_VT_VOID
  1435.     End_Procedure
  1436.  
  1437.     // unselects all items
  1438.     Procedure ComUnselectAll
  1439.         Handle hDispatchDriver
  1440.         Get phDispatchDriver to hDispatchDriver
  1441.         Send InvokeComMethod to hDispatchDriver 26 OLE_VT_VOID
  1442.     End_Procedure
  1443. End_Class
  1444.  
  1445. // CLSID: {55136806-B2DE-11D1-B9F2-00A0C98BC547}
  1446. Class cComDShellNameSpaceEvents is a Mixin
  1447.  
  1448.     { MethodType=Event }
  1449.     Procedure OnComFavoritesSelectionChange Integer llcItems Integer llhItem String llstrName String llstrUrl Integer llcVisits String llstrDate Integer llfAvailableOffline
  1450.     End_Procedure
  1451.  
  1452.     { MethodType=Event }
  1453.     Procedure OnComSelectionChange
  1454.     End_Procedure
  1455.  
  1456.     { MethodType=Event }
  1457.     Procedure OnComDoubleClick
  1458.     End_Procedure
  1459.  
  1460.     { MethodType=Event }
  1461.     Procedure OnComInitialized
  1462.     End_Procedure
  1463.  
  1464.     { Visibility=Private }
  1465.     Procedure RegisterComEvents
  1466.         Send RegisterComEvent 1 msg_OnComFavoritesSelectionChange
  1467.         Send RegisterComEvent 2 msg_OnComSelectionChange
  1468.         Send RegisterComEvent 3 msg_OnComDoubleClick
  1469.         Send RegisterComEvent 4 msg_OnComInitialized
  1470.     End_Procedure
  1471. End_Class
  1472.  
  1473. // CoClass
  1474. // ProgID: ShellNameSpace.ShellNameSpace.1
  1475. // CLSID: {55136805-B2DE-11D1-B9F2-00A0C98BC547}
  1476. // Internet Explorer ShellNameSpace Class
  1477. Class cComShellNameSpace is a cComAutomationObject
  1478.     Import_Class_Protocol cComIShellNameSpace
  1479.     Import_Class_Protocol cComDShellNameSpaceEvents
  1480.  
  1481.     Procedure Construct_Object
  1482.         Forward Send Construct_Object
  1483.         Set psProgID to "{55136805-B2DE-11D1-B9F2-00A0C98BC547}"
  1484.         Set psEventId to "{55136806-B2DE-11D1-B9F2-00A0C98BC547}"
  1485.         Set peAutoCreate to acNoAutoCreate
  1486.     End_Procedure
  1487. End_Class
  1488.  
  1489. // CoClass
  1490. // ProgID: ShellNameSpace.ShellNameSpace.1
  1491. // CLSID: {2F2F1F96-2BC1-4B1C-BE28-EA3774F4676A}
  1492. // Shell ShellNameSpace Class
  1493. Class cComShellShellNameSpace is a cComAutomationObject
  1494.     Import_Class_Protocol cComIShellNameSpace
  1495.     Import_Class_Protocol cComDShellNameSpaceEvents
  1496.  
  1497.     Procedure Construct_Object
  1498.         Forward Send Construct_Object
  1499.         Set psProgID to "{2F2F1F96-2BC1-4B1C-BE28-EA3774F4676A}"
  1500.         Set psEventId to "{55136806-B2DE-11D1-B9F2-00A0C98BC547}"
  1501.         Set peAutoCreate to acNoAutoCreate
  1502.     End_Procedure
  1503. End_Class
  1504.